home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NeuEdit1.cpt / NeuEdit v1.0 / background_2769.txt < prev    next >
Text File  |  1988-12-05  |  8KB  |  384 lines
  1. -- background: 2769 from stack: in.0
  2. -- bmap block id: 3132
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: startup
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A002
  11. -- rect: left=410 top=5 right=21 bottom=444
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Help
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.  
  23.   showdialog 1,4397,"",TRUE,10,158
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: A002
  31. -- rect: left=478 top=5 right=21 bottom=512
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 3
  36. -- text size: 9
  37. -- style flags: 0
  38. -- line height: 12
  39. -- part name: File
  40. ----- HyperTalk script -----
  41. on mousedown
  42.  
  43.   put the mouseloc into myPlace
  44.   put item 1 of myPlace - 100 into horiz
  45.   put item 2 of myPlace +100 into vert
  46.  
  47.  
  48.   get PopUpMenu("New;Load Text File;Save as Text File;Print",0,vert,horiz)
  49.   put it into result
  50.   if result is 3 then
  51.     put line 1 of bg fld 1 into thename
  52.     put newfilename("Filename to save",thename) into thename
  53.     open file thename
  54.     write cd fld "textfield" to file thename
  55.     close file thename
  56.   end if
  57.  
  58.   if result is 4 then
  59.     doMenu "Print Report..."
  60.   end if
  61.  
  62.  
  63.  
  64.  
  65.  
  66.   if it is 1 then
  67.     if cd fld "textfield" is empty then
  68.       put "Untitled" into bg fld 1
  69.       exit mousedown
  70.     end if
  71.     answer"Delete current contents?" with "Yes" or "No"
  72.     if it is "Yes" then
  73.       put empty into cd fld "textfield"
  74.       put "Untitled" into bg fld 1
  75.     end if
  76.   end if
  77.   if result is 2 then
  78.     put filename("TEXT") into thename
  79.     if thename is not empty then
  80.       open file thename
  81.       read from file thename until "‚Äì"
  82.       put it into cd fld "textfield"
  83.       close file thename
  84.       set scroll of cd fld "textfield" to 0
  85.       put lastpathcomponent(thename) into bg fld 1
  86.     end if
  87.   end if
  88.  
  89.  
  90. end mousedown
  91.  
  92.  
  93.  
  94. -- part 3 (field)
  95. -- low flags: 01
  96. -- high flags: 0000
  97. -- rect: left=1 top=2 right=20 bottom=216
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 0
  101. -- font id: 3
  102. -- text size: 12
  103. -- style flags: 2048
  104. -- line height: 16
  105. -- part name: docname
  106. ----- HyperTalk script -----
  107.  
  108. on mousedown
  109.  
  110.   put the mouseloc into myPlace
  111.   put item 1 of myPlace + 100 into horiz
  112.   put item 2 of myPlace +100 into vert
  113.  
  114.  
  115.   get PopUpMenu("File Statistics;Card Directory",0,vert,horiz)
  116.   put it into result
  117.  
  118.   if result is 1 then
  119.     put empty into cd fld "stats"
  120.     put the number of lines in cd fld "textfield" into nl
  121.     put "# of Lines: "&nl into line 1 of cd fld "stats"
  122.     put the number of characters in cd fld "textfield" into nc
  123.     put "# of Characters: "&nc into line 2 of cd fld "stats"
  124.     put "# of words: "&the number of words in cd fld "textfield" into line 3 of cd fld "stats"
  125.     show cd fld "stats"
  126.   end if
  127.  
  128.   if result is 2 then
  129.     set lockscreen to true
  130.     push card
  131.     get id of last card of background "startup"
  132.     put it into lid
  133.     go to first card of background "startup"
  134.     repeat forever
  135.       put line 1 of bg fld 1 &"," after last word of pagelist
  136.       if the id of this card is lid then
  137.         exit repeat
  138.       end if
  139.       go to next card of this background
  140.     end repeat
  141.     pop card
  142.     set lockscreen to false
  143.     DoList"Go to","Never Mind",pagelist,ONE
  144.     put item 2 of the result into it
  145.     find whole it in bg fld 1
  146.   end if
  147.  
  148. end mousedown
  149.  
  150.  
  151.  
  152.  
  153.  
  154. -- part 5 (button)
  155. -- low flags: 00
  156. -- high flags: A002
  157. -- rect: left=376 top=5 right=21 bottom=410
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 3
  162. -- text size: 9
  163. -- style flags: 0
  164. -- line height: 12
  165. -- part name: Font
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   set lockscreen to true
  169.   choose field tool
  170.   click at loc of cd fld "textfield"
  171.   doMenu "Text Style..."
  172.   choose browse tool
  173.   set lockscreen to false
  174.  
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 11 (button)
  180. -- low flags: 00
  181. -- high flags: 2002
  182. -- rect: left=358 top=5 right=21 bottom=376
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 16560 / 16560
  185. -- text alignment: 1
  186. -- font id: 3
  187. -- text size: 9
  188. -- style flags: 0
  189. -- line height: 12
  190. -- part name: goright
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   go to next card of this background
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 12 (button)
  199. -- low flags: 00
  200. -- high flags: 2002
  201. -- rect: left=340 top=5 right=21 bottom=358
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 15420 / 15420
  204. -- text alignment: 1
  205. -- font id: 3
  206. -- text size: 9
  207. -- style flags: 0
  208. -- line height: 12
  209. -- part name: goleft
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   go to previous card of this background
  213. end mouseUp
  214.  
  215.  
  216.  
  217. -- part 13 (button)
  218. -- low flags: 00
  219. -- high flags: 2002
  220. -- rect: left=322 top=5 right=21 bottom=340
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 1015 / 1015
  223. -- text alignment: 1
  224. -- font id: 3
  225. -- text size: 9
  226. -- style flags: 0
  227. -- line height: 12
  228. -- part name: newpage
  229. ----- HyperTalk script -----
  230. on mouseUp
  231.   answer"Create a new document card?" with "No" or "Yes"
  232.   if it is "Yes" then
  233.     doMenu "Copy Card"
  234.     doMenu "Paste Card"
  235.     put empty into cd fld "textfield"
  236.     put "Untitled" into bg fld 1
  237.  
  238.   end if
  239. end mouseUp
  240.  
  241.  
  242.  
  243. -- part 14 (button)
  244. -- low flags: 00
  245. -- high flags: 2002
  246. -- rect: left=304 top=5 right=21 bottom=322
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 1018 / 1018
  249. -- text alignment: 1
  250. -- font id: 3
  251. -- text size: 9
  252. -- style flags: 0
  253. -- line height: 12
  254. -- part name: del
  255. ----- HyperTalk script -----
  256. on mouseup
  257.   answer"Delete this document card?" with "Yes" or "No"
  258.   if it is "Yes" then
  259.     doMenu "Delete Card"
  260.     go to next card of this background
  261.   end if
  262. end mouseup
  263.  
  264.  
  265.  
  266. -- part 16 (button)
  267. -- low flags: 00
  268. -- high flags: 2002
  269. -- rect: left=286 top=5 right=21 bottom=304
  270. -- title width / last selected line: 0
  271. -- icon id / first selected line: 21847 / 21847
  272. -- text alignment: 1
  273. -- font id: 3
  274. -- text size: 9
  275. -- style flags: 0
  276. -- line height: 12
  277. -- part name: gohome
  278. ----- HyperTalk script -----
  279. on mouseUp
  280.   answer"Go home now?" with "No" or "Yes"
  281.   if it is "Yes" then
  282.     if the freesize of this stack>0 then
  283.       doMenu "Compact Stack"
  284.       go home
  285.       exit mouseup
  286.     end if
  287.     go home
  288.   end if
  289.  
  290. end mouseUp
  291.  
  292.  
  293.  
  294. -- part 19 (button)
  295. -- low flags: 00
  296. -- high flags: A002
  297. -- rect: left=444 top=5 right=21 bottom=478
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 0 / 0
  300. -- text alignment: 1
  301. -- font id: 3
  302. -- text size: 9
  303. -- style flags: 0
  304. -- line height: 12
  305. -- part name: S/R
  306. ----- HyperTalk script -----
  307. on mousedown
  308.   put the mouseloc into myPlace
  309.   put item 1 of myPlace - 100 into horiz
  310.   put item 2 of myPlace +100 into vert
  311.  
  312.   get PopUpMenu("Search;Search & Replace",0,vert,horiz)
  313.   put it into result
  314.  
  315.   if result is 1 then
  316.     showdialog 2,9595,"What string do you want to search for?","","",""
  317.     put the result into resc
  318.     if resc is not empty then
  319.       repeat forever
  320.         find whole resc
  321.         if the result is not empty then
  322.           exit repeat
  323.         end if
  324.         showdialog 1,22212,"",TRUE,2,1
  325.         put the result into my
  326.         if my= 2 then
  327.           exit mousedown
  328.         end if
  329.  
  330.  
  331.  
  332.       end repeat
  333.     end if
  334.   end if
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.   if result is 2 then
  342.     ShowDialog 2,26157,"Text you want to change","Change to...","","",false
  343.     put the result into resc
  344.     if resc is empty then exit mousedown
  345.     put item 1 of resc into verify
  346.     put item 2 of resc into searchfor
  347.     put item 3 of resc into replaceit
  348.     if searchfor is empty then
  349.       exit mousedown
  350.  
  351.     end if
  352.     if searchfor=replaceit then
  353.       exit mousedown
  354.  
  355.     end if
  356.     put empty into amt
  357.     repeat forever
  358.       find whole searchfor
  359.       if the result is not empty then
  360.         exit repeat
  361.       end if
  362.       if verify=false then
  363.         do "put replaceit into "&the FoundChunk
  364.       end if
  365.       if verify=true then
  366.         showdialog 1,11072,"",TRUE,2,1
  367.         put the result into my
  368.         if my= 3 then
  369.           exit mousedown
  370.  
  371.         end if
  372.         if my= 1 then
  373.           do "put replaceit into "&the FoundChunk
  374.         end if
  375.       end if
  376.  
  377.  
  378.     end repeat
  379.   end if
  380.  
  381. end mousedown
  382.  
  383.  
  384.